home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / NUKE.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  16.9 KB  |  518 lines
  1. 0 REM*  MELTDOWN BY D. N. PRICE
  2. 1 REM*BASED ON PROG BY S.R. BERGGREN
  3. 2 REM*AS MODIFIED BY WIM 3/30/82
  4. 3 REM*ALL RIGHTS ASSIGNED TO PUBLIC
  5. 4 REM*DOMAIN SOFTWARE INC., WEST MILTON
  6. 5 REM*OHIO.
  7. 6 CR$=""
  8. 9 BC=53280:SC=53281:LC=646:POKEBC,12:POKESC,0:POKELC,5:GOTO40
  9. 10 POKE198,0:B$="":PRINT" ";:POKE167,1
  10. 11 GETA$:IFA$=""THEN11
  11. 12 Z=ASC(A$):IFZ=94THEN15
  12. 13 IFZ<48ORZ>57THEN11
  13. 14 PRINTA$;:B$=B$+A$:IFLEN(B$)<3THEN11
  14. 15 POKE167,0:PRINT" ";:RETURN
  15. 28 "PHAROAH'S NEEDLE" PRG        
  16. 40 POKE53272,23:R=RND(-TI):BL$="                                    "
  17. 41 T1$=" [211][193][206][160][193][206][196][210][197][193][211][160][206][213][195][204][197][193][210][160][208][207][215][197][210][160][208][204][193][206][212][160][206][207]. 2  "
  18. 42 T2$="[207][208][197][210]:":T3$="[156][211][212][193][212][213][211][160][210][197][208][207][210][212], [196][193][217]":FORTD=1TO10
  19. 43 PRINT"[147]"CR$"[150][205]ELTDOWN!":FORT=1TO150:NEXT:PRINT"[147]"CR$"[205]ELTDOWN!":FORT=1TO150:NEXT
  20. 44 NEXTTD:PRINT""CR$SPC(1)"AT THE":PRINTT1$:PRINT"[154]     [207]RIGINAL [199]AME [194]Y [211]. [210]. [194]ERGGREN
  21. 45 [153]"SYS(null)ITH MODIFICATIONS BY RIGHT$VAN & LEFT$UME (null)MITH.
  22. 46 PRINT"[207]THER MODIFICATIONS BY THE STAFF OF THE
  23. 47 [153]"  PEEKRIDGEWATER LEFT$IGH (null)CHOOL, (null)OVA (null)COTIA
  24. 48 PRINT"     [194]ILL [205]UNCH AND [196]ENNIS [206]. [208]RICE
  25. 49 [133]"(null)PERATOR'S (null)AST (null)AME";NA$
  26. 50 [139][195](NA$)[177]8[167]NA$[178][200](NA$,8)
  27. 59 [153]"LOAD(null)HIS PROGRAM SIMULATES THE OPERATION OF"
  28. 60 [153]"A NUCLEAR POWER REACTOR.";:[141]5300:[153]"  (null)HE OBJECT"
  29. 70 [153]"IS TO OPERATE THE PLANT AT AS HIGH A"
  30. 80 [153]"POWER OUTPUT AS POSSIBLE";:[141]5300:[153]", WITHOUT"
  31. 90 [153]"CAUSING A REACTOR MELTDOWNSTOP.":[141]5300
  32. 92 [129]Z5[178]1[164]7:[153][163]18)"ONSYSMELTDOWNWAITSTOP":[129]Z6[178]1[164]50:[130]Z6
  33. 94 [153][163]18)"ONMELTDOWNSTOP":[129]Z6[178]1[164]50:[130]Z6,Z5:[141]5310
  34. 100 [133]"LOADSTR$O YOU WANT INSTRUCTIONS   NCMDCMDCMD";Z$:[139]Z$[178]"N"[167]352
  35. 102 [139]Z$[179][177]"Y"[167]100
  36. 110 [153]"LOADFOR(null)HE LENONTROL (null)ODSFOR REGULATE THE AMOUNT OF HEAT PRODUCED BY THE REACTOR.
  37. 112 PRINT"[212]HE FURTHER THE [195]ONTROL [210]ODS ARE WITH-  DRAWN THE MORE HEAT IS PRODUCED.
  38. 114 [153]"(null)HE OPEN(null)RIMARY LENOOLANTFOR CARRIES THIS HEAT
  39. 115 PRINT"TO THE [156][200]EAT [197]XCHANGER[129] WHERE THE HEAT
  40. 116 [153]"CAUSES THE (null)ECONDARY LENOOLANTFOR TO TURN
  41. 118 PRINT"TO STEAM.  [212]HIS STEAM SPINS THE [158][212]URBINE[129]
  42. 120 [153]"WHICH IN TURN DRIVES THE DEFCHR$ENERATORFOR AND
  43. 122 PRINT"THEREBY PRODUCES ELECTRICITY.
  44. 124 [153]"(null)HE (null)ECONDARY LENOOLANT IS THEN PUMPED TO
  45. 126 PRINT"THE [155][195]OOLING [212]OWER[129] WHERE IT IS COOLED
  46. 128 [153]"AND CONDENSED AND THEN PUMPED BACK TO
  47. 130 PRINT"THE [200]EAT [197]XCHANGER TO BEGIN THE CYCLE   AGAIN.
  48. 180 [153]"(null)HE CONTVALMERGENCY LENOOLANTFOR IS USED TO SHUT
  49. 182 PRINT"DOWN THE REACTOR, OR IF THE TEMPERATURE
  50. 183 [153]"OF THE REACTOR EXCEEDS THE MAXIMUM.":[141]5310
  51. 184 [153]"LOADFOR(null)NLIKE OTHER COOLANTS, THE VALMERGENCY
  52. 185 PRINT"[195]OOLANT IS [158]NOT[146][129] RECYCLED.  [212]HIS MEANS
  53. 186 [153]"YOUR SUPPLY OF VALMERGENCY LENOOLANT IS VERYCRITICAL.
  54. 192 PRINT"[193]N INCREASED FLOW OF PRIMARY COOLANT"
  55. 194 PRINT"WILL LOWER THE REACTOR CORE TEMPERATURE"
  56. 196 PRINT"AND WILL RAISE THE HEAT EXCHANGER"
  57. 198 PRINT"TEMPERATURE."
  58. 200 PRINT"[193]N INCREASED FLOW OF SECONDARY COOLANT"
  59. 202 PRINT"WILL LOWER THE HEAT EXCHANGER TEMPERA-
  60. 203 [153]"TURE AND WILL INCREASE POWER PRODUCTION
  61. 204 PRINT"BUT, IT WILL ALSO RAISE THE TEMPERATURE
  62. 205 [153]"OF THE COOLING TOWER."
  63. 210 [153]"(null)UCCESSFUL OPERATION DEPENDS ON"
  64. 212 [153]"MAINTAINING A CAREFUL BALANCE BETWEEN
  65. 213 PRINT"THE HIGH TEMPERATURES NEEDED FOR POWER
  66. 214 [153]"PRODUCTION AND THE THERMAL LIMITS OF
  67. 215 PRINT"THE EQUIPMENT.":GOSUB5310
  68. 220 PRINT"[147][197]NTER  [196]  TO SEE REACTOR DIAGRAM."
  69. 222 PRINT"[197]NTER  [201]  FOR OPERATING INSTRUCTIONS."
  70. 224 PRINT"[197]NTER  [211]  TO START OPERATION."
  71. 226 PRINT""TAB(13);:INPUT"S[157][157][157]";A$:IFA$="D"THENGOSUB16000:GOTO220
  72. 227 IFA$="S"THEN390
  73. 228 IFA$<>"I"THEN226
  74. 230 PRINT"[147][212]HE CONTROLS ARE OPERATED BY TYPING IN"
  75. 235 PRINT"THE DESIRED CONTROL ROD SETTING AND THE
  76. 240 [153]"FLOW RATES OF THE DIFFERENT COOLANTS.
  77. 241 PRINT"[213]SE SETTINGS FROM 0[158] TO 100[158].
  78. 242 [153]"(null)RESS THE CONT^SYS KEY AFTER ENTERING THE
  79. 243 PRINT"DESIRED SETTING.  [201]F NO CHANGE IS TO BE
  80. 244 [153]"MADE, SIMPLY PRESS THE CONT^SYS KEY AND THE
  81. 245 PRINT"PREVIOUS SETTING WILL REMAIN UNCHANGED
  82. 246 [153]"AND YOU WILL PROCEED TO THE NEXT STEP."
  83. 255 [153]"ATNFTER THE DESIRED ENTRIES HAVE BEEN
  84. 260 PRINT"MADE, THE NEXT DAYS CONDITIONS WILL BE
  85. 265 [153]"CALCULATED AND DISPLAYED ON THE SCREEN."
  86. 270 [153]"(null)HE POWER PLANT CAN BE KEPT OPERATING
  87. 272 PRINT"UNTIL THE FUEL IS EXHAUSTED OR UNTIL A
  88. 274 [153]"MELTDOWN OCCURS.
  89. 276 PRINT"[212]HE REACTOR FUEL WILL LAST ABOUT 100
  90. 278 [153]"TO 150 DAYS, DEPENDING ON THE AMOUNT OF
  91. 280 PRINT"ENERGY PRODUCED.":GOSUB5310
  92. 290 PRINT"[147][215]HEN THE REACTOR FUEL IS EXHAUSTED
  93. 295 [153]"YOUR PERFORMANCE WILL BE SUMMARIZED.
  94. 300 PRINT"[201]F YOU DESIRE TO REPAIR ANY LEAKS OR
  95. 305 [153]"DAMAGE, BRING THE REACTOR TEMPERATURE
  96. 310 PRINT"BELOW [129]100[158] AND SHUT OFF ALL COOLANT
  97. 315 [153]"FLOWS.  (null)HIS WILL CAUSE AN AUTOMATIC
  98. 320 PRINT"MAINTENANCE SHUTDOWN.  [193]LL NECESSARY
  99. 325 [153]"REPAIRS WILL BE MADE, ALL COOLANTS WILL
  100. 330 PRINT"BE REPLENISHED.  [212]HE APPROPRIATE REPAIR
  101. 335 [153]"COSTS WILL BE CALCULATED AND DISPLAYED.
  102. 340 PRINT"[212]HE GREATER THE DAMAGE, THE LONGER ANY
  103. 345 [153]"REPAIRS WILL TAKE AND THEREFORE REPAIR
  104. 346 PRINT"COSTS WILL BE HIGHER."
  105. 347 PRINT"[215]HEN TEMPERATURES APPROACH THEIR MAXI-
  106. 348 [153]"MUMS, THEY WILL FLASH SEVERAL TIMES TO
  107. 349 PRINT"WARN YOU TO WATCH THEM CLOSELY.":GOSUB5310
  108. 352 PRINT"[147]"TAB(13)"[215][193][210][206][201][206][199]:"
  109. 355 PRINTTAB(7)"[212][200][201][211][160][208][207][215][197][210][160][208][204][193][206][212][160][200][193][211]"
  110. 360 PRINTTAB(3)"[206][207][160][193][213][212][207][205][193][212][201][195][160][211][193][198][197][212][217][160][196][197][214][201][195][197][211]!!":Z4=13:GOSUB5300
  111. 362 PRINT"[212]HE [207]PERATOR, "NA$", IS RESPONSIBLE
  112. 364 [153]"FOR THE SAFE AND EFFICIENT OPERATION
  113. 366 PRINT"OF THE REACTOR, IN ACCORDANCE WITH THE
  114. 368 [153]"ESTABLISHED PROCEDURES.  CHR$OOD (null)UCK!
  115. 370 GOSUB5300:GOSUB5310:GOTO220
  116. 390 POKEBC,12
  117. 400 GOSUB2000
  118. 410 RH=0:RL=0:TT=0:FL=100:RC=0
  119. 420 DAY%=0:D4%=0
  120. 430 QP%=1-(RND(2)>.57)-(RND(2)>.95)
  121. 440 QS%=1-(RND(2)>.57)-(RND(2)>.95)
  122. 442 REM  QP%=QUALITY OF PRIMARY LOOP WORKMANSHIP, QS%=SAME FOR SECONDARY LOOP
  123. 444 REM  1 FOR FIRST-CLASS WORK, 2 FOR SECOND-CLASS, 3 FOR THIRD-CLASS
  124. 450 DMGE%=0
  125. 455 A%=0:A1%=0:A2%=0
  126. 460 DAY%=DAY%+1:PRINT"[147]";:REM  WRITE REPORT
  127. 462 IFRT%>800ORXT%>500ORCT%>300ORGZ%>2000THEN480
  128. 464 IFGZ%<1000AND(DAY%-D4%>8)THEN480
  129. 466 IFEV%<200ORPV%<100ORSV%<100THEN480
  130. 468 IFRD%>3ORPD%>4ORSD%>4ORED%>2THEN480
  131. 470 IFPB%>0ORSB%>0ORXB%>0ORGB%>0THEN480
  132. 472 GOTO700
  133. 480 GOSUB17000:PRINTT1$
  134. 490 PRINTT2$;SPC(1);NA$;SPC(2);T3$;DAY%""
  135. 500 PRINT"[215][193][210][206][201][206][199][211]:[144]":SW=1
  136. 510 IFRT%<800THEN520
  137. 512 PRINT"   [210]EACTOR OVERHEATED[144]":RD%=RD%+1-(RT%>850)-(RT%>900)-2*(RT%>950)
  138. 514 PD%=PD%+1:ED%=ED%+1-(RT%>850):SW=2
  139. 520 IFXT%<500THEN530
  140. 522 PRINT"   [200]EAT EXCHANGER OVERHEATED[144]"
  141. 524 XD%=XD%+1-(XT%>600):PD%=PD%+1:SD%=SD%+1:SW=2
  142. 530 IFGZ%<2000THEN540
  143. 532 PRINT"   [212]URBINE OVERLOADED[144]"
  144. 534 TD%=TD%+1-(GZ%>2500):SD%=SD%+1:SW=2
  145. 540 IFCT%>300THENPRINT"   [195]OOLING TOWER OVERHEATED[144]":SD%=SD%+1:SW=2
  146. 550 IFGZ%<1000THENPRINT"   [208]OWER OUTPUT LOW[144]":SW=2
  147. 560 IFEV%<200THENPRINT"   [149][197]MERGENCY COOLANT LOW[144]":SW=2
  148. 570 IFPV%<100THENPRINT"   [156][208]RIMARY COOLANT LOW[144]":PD%=PD%+1:SW=2
  149. 580 IFSV%<100THENPRINT"   [211]ECONDARY COOLANT LOW[144]":SD%=SD%+1:SW=2
  150. 590 ONSWGOTO600,610
  151. 600 PRINTTAB(11)"[206]ONE"
  152. 610 PRINT"[196][193][205][193][199][197]:[144]":SW=1
  153. 620 IFRD%>3THENPRINT"REACTOR CORE DAMAGED[144]":SW=2
  154. 630 IFPD%<5THEN640
  155. 632 PRINT"[208]RIMARY COOLANT LEAK:[144]";PD%;"[204]/DAY"
  156. 634 PV%=(PV%-PD%)*(-((PV%-PD%)>0)):SW=2
  157. 640 IFSD%<5THEN650
  158. 642 PRINT"[211]ECONDARY COOLANT LEAK:[144]";SD%;"[204]/DAY"
  159. 644 SV%=(SV%-SD%)*(-((SV%-SD%)>0)):SW=2
  160. 650 IFED%<3THEN660
  161. 652 PRINT"[197]MERGENCY COOLANT LEAK:[144]";2*ED%;"[204]/DAY"
  162. 654 EV%=(EV%-2*ED%)*(-((EV%-2*ED%)>0)):SW=2
  163. 660 IFPB%=0THEN670
  164. 662 PRINT"[208]RIMARY COOLANT PUMP FAILURE:[144]";
  165. 664 PRINT10*PD%*(-(PD%<10))+100*(-(PD%>=10));"%":SW=2
  166. 670 IFSB%=0THEN680
  167. 672 PRINT"[211]ECONDARY COOLANT PUMP FAILURE:[144]";
  168. 674 PRINT10*SD%*(-(SD%<10))+100*(-(SD%>=10));"%":SW=2
  169. 680 IFXB%>0THENPRINT"[200]EAT EXCHANGER FAILURE[144]":SW=2
  170. 690 IFGB%>0THENPRINT"[212]URBINE FAILURE[144]":SW=2
  171. 692 ONSWGOTO694,696
  172. 694 PRINTTAB(11)"[206]ONE[144]"
  173. 696 GOSUB5310
  174. 700 POKESC,15:PRINT"[129][147]":PRINTT2$SPC(1)NA$SPC(2)T3$DAY%
  175. 710 IFRD%>5THEN3000
  176. 722 PRINTTAB(6)"[195][207][206][212][210][207][204][160][210][207][196][160][208][207][211][201][212][201][207][206]:[146]"A%"%":PRINT"[158]"
  177. 724 PRINT"[154][212][197][205][208][197][210][193][212][213][210][197][211][146]:    [205][193][216]    [195][200][193][206][199][197]    [206][207][215][158]
  178. 730 [153]"POKE(null)EACTOR LENOREWAIT.....800STOP
  179. 732 PRINTTAB(25)"[145]"RT%-T7%:PRINTTAB(33)"[145]"RT%
  180. 734 T7%=RT%
  181. 740 PRINT"[151][200]EAT [197]XCHANGER[146]...500[144]
  182. 742 [153][163]25)"ON"XT%[171]T8%:[153][163]33)"ON"XT%
  183. 744 T8%[178]XT%
  184. 750 [153]"POKELENOOLING (null)OWERWAIT....300STOP
  185. 752 PRINTTAB(25)"[145]"CT%-T9%:PRINTTAB(33)"[145]"CT%
  186. 754 T9%=CT%
  187. 760 PRINT"[144][195][207][207][204][193][206][212][211][146]:        [204]EVEL  [204]EAKAGE   [198]LOW
  188. 762 KW%[178]TT[173]DAY%
  189. 770 [153]"VALMERGENCYWAIT........"[163]16)"CLR"EV%[163]22)"VERIFY"ED%"STOP(null)/STR$AY"[163]33)""EF%
  190. 780 [153]"(null)RIMARYWAIT.........."[163]16)"CLR"PV%[163]22)"VERIFY"PD%"STOP(null)/STR$AY"[163]33)""PF%
  191. 790 [153]"(null)ECONDARYWAIT........"[163]16)"CLR"SV%[163]22)"VERIFY"SD%"STOP(null)/STR$AY"[163]33)""SF%
  192. 810 [153]"(null)(null)(null)STR$(null)LEN(null)RIGHT$(null)(null)"
  193. 820 [153]"POKE(null)OWER (null)UTPUT ((null)ATN(null) STOP2000 (null)WPOKE):..."[163]30)GZ%"(null)W"
  194. 821 KW%[178]TT[173]DAY%
  195. 822 VE[178][181](24[172]TT[172].07071):GP[178]VE[171]RC
  196. 833 RC$[178][196](RC):[139]RC[179]1000[167]RC$[178]"$"[170]RC$:[137]835
  197. 834 RC$[178]"$"[170][200](RC$,[195](RC$)[171]3)[170]","[170][201](RC$,3)
  198. 835 [153]"POKE(null)OTAL (null)EPAIR LENOSTSWAIT:........."[163]29)RC$
  199. 838 VE$[178][196](VE):[139]VE[179]1000[167]VE$[178]"$"[170]VE$:[137]840
  200. 839 VE$[178]"$"[170][200](VE$,[195](VE$)[171]3)[170]","[170][201](VE$,3)
  201. 840 [153]"POKE(null)ALUE OF (null)OWER (null)RODUCEDWAIT:...."[163]29)VE$
  202. 845 [153]"POKEATNVERAGE (null)OWER (null)UTPUTWAIT:......."[163]30)KW%"(null)W"
  203. 850 [153]:[153]:[153]"ONFOR(null)ERCENTAGE OF FUEL REMAINING = ";FL
  204. 851 [139]RT%[177]775[167][141]8000:[137]852
  205. 852 [139]XT%[177]475[167][141]9000:[137]853
  206. 853 [139]CT%[177]275[167][141]9500:[137]900
  207. 856 [139](100[171]RL)[179]5[167][153]"CLR(null)EACTOR FUEL EXHAUSTED":[129]T[178]1[164]5000:[130]:[137]4000
  208. 900 [143]  GET NEW CONTROL VALUES
  209. 910 A2%[178]A1%:A1%[178]A%
  210. 920 [151]214,23:[153]:[153]BL$
  211. 930 [151]214,23:[153]:[153]"CONTLENONTROL (null)OD (null)OSITION?";:[141]10
  212. 940 [139]B$[178]""[167]960
  213. 950 A%[178][197](B$):A%[178]A%[170](100[171]A%)[172]([171](A%[177]100))
  214. 960 [151]214,23:[153]:[153]BL$
  215. 970 [151]214,23:[153]:[153]"CONTVALMERGENCY LENOOLANT ASCLOW?";:[141]10
  216. 980 [139]B$[178]""[167]1000
  217. 990 EF%[178][197](B$):EF%[178]EF%[170](100[171]EF%)[172]([171](EF%[177]100))
  218. 1000 [151]214,23:[153]:[153]BL$
  219. 1010 [151]214,23:[153]:[153]"CONT(null)RIMARY LENOOLANT ASCLOW?";:[141]10
  220. 1020 [139]B$[178]""[167]1040
  221. 1030 PF%[178][197](B$):PF%[178]PF%[170](100[171]PF%)[172]([171](PF%[177]100))
  222. 1040 [151]214,23:[153]:[153]BL$
  223. 1050 [151]214,23:[153]:[153]"CONT(null)ECONDARY LENOOLANT ASCLOW?";:[141]10
  224. 1060 [139]B$[178]""[167]1100
  225. 1070 SF%[178][197](B$):SF%[178]SF%[170](100[171]SF%)[172]([171](SF%[177]100))
  226. 1100 [139]PF%[178]0[175]SF%[178]0[175]RH[179]1[175]RT%[179]100[175]A%[178]0[167]1120
  227. 1110 [137]1140
  228. 1120 [141]2000:[151]214,23:[153]:[153]BL$
  229. 1122 [151]214,23:[153]:[153]"(null)AINTENANCE SHUTDOWN:"MD%"DAYS.ON":RC[178]RC[170](MD%[172]650)
  230. 1130 [129]I[178]1[164]5000:[130]I
  231. 1140 [139]EF%[177]EV%[167]EF%[178]EV%
  232. 1200 [143]  DAMAGE ASSESSMENT AND OPERATION CALCULATIONS
  233. 1205 EV%[178]EV%[171]EF%[170]2[172]ED%[172](ED%[177]3)
  234. 1210 [145]QP%[137]1211,1213,1215:[143] LEAKAGE PROBABILITIES
  235. 1211 PD%[178]PD%[170](PF%[177]65)[172]([187](2)[177].9998)[170](PF%[177]90)[172]([187](2)[177].996)
  236. 1212 PD%[178]PD%[170](PF%[177]95)[172]([187](2)[177].95)[171](4000[172][187](2)[179]DAY%):[137]1220
  237. 1213 PD%[178]PD%[170](PF%[177]55)[172]([187](2)[177].9995)[170](PF%[177]80)[172]([187](2)[177].993)
  238. 1214 PD%[178]PD%[170](PF%[177]92)[172]([187](2)[177].94)[171](2700[172][187](2)[179]DAY%):[137]1220
  239. 1215 PD%[178]PD%[170](PF%[177]40)[172]([187](2)[177].999)[170](PF%[177]70)[172]([187](2)[177].985)
  240. 1216 PD%[178]PD%[170](PF%[177]87)[172]([187](2)[177].93)[171](1400[172][187](2)[179]DAY%)
  241. 1220 [145]QS%[137]1221,1223,1225
  242. 1221 SD%[178]SD%[170](SF%[177]75)[172]([187](2)[177].9997)[170](SF%[177]93)[172]([187](2)[177].995)
  243. 1222 SD%[178]SD%[170](SF%[177]97)[172]([187](2)[177].94)[171](3000[172][187](2)[179]DAY%):[137]1230
  244. 1223 SD%[178]SD%[170](SF%[177]60)[172]([187](2)[177].9992)[170](SF%[177]85)[172]([187](2)[177].99)
  245. 1224 SD%[178]SD%[170](SF%[177]94)[172]([187](2)[177].92)[171](2400[172][187](2)[179]DAY%):[137]1230
  246. 1225 SD%[178]SD%[170](SF%[177]40)[172]([187](2)[177].9985)[170](SF%[177]78)[172]([187](2)[177].98)
  247. 1226 SD%[178]SD%[170](SF%[177]89)[172]([187](2)[177].9)[171](1800[172][187](2)[179]DAY%)
  248. 1230 PB%[178][171](PD%[177]5)
  249. 1240 SB%[178][171](SD%[177]5)
  250. 1250 [139]PF%[177](100[171]PD%[172]10)[175]PB%[177]0[167]PF%[178](100[171]PD%[172]10)[172]([171](100[171]PD%[172]10[177]0))
  251. 1260 [139]SF%[177](100[171]SD%[172]10)[175]SB%[177]0[167]SF%[178](100[171]SD%[172]10)[172]([171](100[171]SD%[172]10[177]0))
  252. 1270 RL[178]RL[170]RH[173]50
  253. 1275 FL[178][181](100[171]RL)
  254. 1280 RH[178](A%[172]30[170]A1%[172]60[170]A2%[172]10)[173]2500[172](100[171]RL)
  255. 1300 PH[178]PF%[172](100[172]([171](PV%[177]100))[170]PV%[172]([171](PV%[179][178]100)))[173]350
  256. 1310 EH[178]EF%[173]200[172](RT%[171]25)
  257. 1320 RT%[178]RT%[170]RH[171]EH[171]PH[171]5[172]([171](RT%[177]25))
  258. 1325 RT%[178]25[170](RT%[171]25)[172]([171](RT%[177]25))
  259. 1330 XT%[178]((RT%[171]25)[172]PF%[170](CT%[171]25)[172]SF%)[173](PF%[170]SF%[170]1)[170]25
  260. 1340 [139]XB%[177]0[167]XT%[178]RT%[172].8[170]5
  261. 1350 SH[178]SF%[172](100[172]([171](PV%[177]100))[170]PV%[172]([171](PV%[179][178]100)))[173]350[172](XT%[171]CT%)
  262. 1360 [139]XB%[177]0[167]SH[178]SH[172].2
  263. 1370 GZ%[178]SH[173]XT%[172](XT%[171]CT%)[172]2[173]3
  264. 1375 [139]GZ%[177]2600[167]GZ%[178]2600
  265. 1380 GZ%[178]GZ%[172]([171](GZ%[177]0))[172]([171](GB%[178]0))
  266. 1390 CT%[178]25[170]((XT%[171]25)[172](SH[171]GZ%)[173](SH[170]1)[172].75)
  267. 1395 CT%[178]25[172]([171](CT%[179][178]25))[170]CT%[172]([171](CT%[177]25))
  268. 1400 [139]XB%[179]1[167]XB%[178]([171](XD%[177]2))[172]([171]([187](4)[177].9))
  269. 1410 [139]GB%[179]1[167]GB%[178]([171](GD%[177]4))[172]([171]([187](4)[177].9))
  270. 1420 TT[178]TT[170]GZ%
  271. 1430 [137]460
  272. 2000 [143]  MAINTENANCE REPAIR SUBROUTINE
  273. 2010 EV%[178]300:PV%[178]120:SV%[178]120
  274. 2020 QP%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  275. 2030 QS%[178]1[171]([187](2)[177].57)[171]([187](2)[177].95)
  276. 2040 RT%[178]25:T7%[178]25
  277. 2050 XT%[178]25:T8%[178]25
  278. 2060 CT%[178]25:T9%[178]25
  279. 2070 DMGE%[178]DMGE%[170]2[172]RD%[170]ED%[170]PD%[170]XD%[170]SD%[170]GD%
  280. 2080 MD%[178]5[170]3[172](10[172]([171](RD%[177]3))[171](ED%[177]3)[171](PD%[177]3)[171](SD%[177]3)[170]2[172]PB%[170]2[172]SB%[170]3[172]XB%[170]3[172]GB%)
  281. 2082 DAY%[178]DAY%[170]MD%:D4%[178]DAY%
  282. 2090 RD%[178]0
  283. 2100 ED%[178]0
  284. 2110 PD%[178]0
  285. 2120 XD%[178]0
  286. 2130 SD%[178]0
  287. 2140 GD%[178]0
  288. 2150 PB%[178]0
  289. 2160 SB%[178]0
  290. 2170 XB%[178]0
  291. 2180 GB%[178]0
  292. 2190 EF%[178]0:PF%[178]0:SF%[178]0
  293. 2195 GZ%[178]0
  294. 2200 [142]
  295. 3000 [139]RD%[177]6[167]3100
  296. 3001 [129]Q[178]1[164]5:CD$[178]"":[151]BC,2:[151]SC,2:[151]LC,7
  297. 3002 [153]"LOAD":[153]CD$[163]15)"!(null)ELTDOWN!
  298. 3005 FORT=1TO400:NEXT
  299. 3006 POKEBC,7:POKESC,7:POKELC,2
  300. 3008 PRINT"[147]":PRINTCD$TAB(15)"![205]ELTDOWN!"
  301. 3011 FORT=1TO400:NEXT:NEXTQ
  302. 3015 PRINT"[147]":POKESC,0:POKEBC,0:POKELC,13
  303. 3017 PRINT"[217]OU ARE NOW IN CHARGE OF A RUNAWAY
  304. 3018 [153]"REACTOR.  ASCUEL MELTING PREVENTS THE IN-
  305. 3019 PRINT"SERTION OF CONTROL RODS.  [201]NITIATE YOUR
  306. 3020 [153]"EVACUATION PLAN AND NOTIFY LOCAL AND
  307. 3021 PRINT"FEDERAL DISASTER CONTROL AGENCIES.
  308. 3022 [153]"RIGHT$NSURE ALL RETOUCHED WELD X-RAYS ARE
  309. 3023 PRINT"REMOVED AND DESTROYED.  [201]NSURE BOGUS
  310. 3024 [153]"CERTIFICATES FOR OPERATORS AND WELDERS
  311. 3025 PRINT"ARE ALSO REMOVED AND DESTROYED PRIOR TO
  312. 3026 [153]"INVESTIGATIONS BY ATNVALLEN AND OTHER REGULA-
  313. 3027 PRINT"TORY AGENCIES.
  314. 3028 [153]"(null)REPARE AND SUBMIT RATE HIKE REQUEST TO
  315. 3029 PRINT"[208]UBLIC [213]TILITIES [195]OMMISSION TO PAY FOR
  316. 3030 [153]"REPAIRS TO BUILDINGS, EQUIPMENT AND FOR
  317. 3031 PRINT"TRAVEL EXPENSES TO NEXT CONVENTION IN
  318. 3032 [153]"(null)AS (null)EGAS.":[137]5005
  319. 3100 [129]Q[178]1[164]5:CD$[178]""
  320. 3101 [151]BC,2:[151]SC,2:[151]LC,7
  321. 3102 [153]"LOAD"CD$[163]15)"!(null)ELTDOWN!
  322. 3104 FORT=1TO400:NEXT
  323. 3106 POKEBC,7:POKESC,7:POKELC,2
  324. 3108 PRINT"[147]"CD$TAB(15)"![205]ELTDOWN!"
  325. 3110 FORT=1TO400:NEXT:NEXTQ
  326. 3111 POKEBC,0:POKESC,0:POKELC,14
  327. 3112 PRINT"[147]":PRINT"[212]HE FEARED '[195]HINA [211]YNDROME' IS NOW
  328. 3114 [153]"UNDERWAY.  VALXCESSIVE HEAT FROM THE RE-
  329. 3116 PRINT"ACTOR CORE HAS RUPTURED PRIMARY COOLANT
  330. 3118 [153]"LINES, CAUSING A STEAM EXPLOSION.
  331. 3120 PRINT"[212]HE CONTAINMENT BUILDING HAS BEEN
  332. 3122 [153]"BREACHED AND LETHAL CLOUDS OF RADIO-
  333. 3124 PRINT"ACTIVE GASSES ARE POURING INTO THE
  334. 3126 [153]"ATMOSPHERE.  RIGHT$NITIAL ESTIMATES INDICATE
  335. 3128 PRINT"A MINIMUM OF 500 SQUARE MILES WILL BE
  336. 3130 [153]"CONTAMINATED FOR AT LEAST 300 YEARS.
  337. 3132 PRINT"[201]MMEDIATELY CONTACT YOUR STOCKBROKER
  338. 3134 [153]"TO SELL ALL NUCLEAR POWER STOCK AND TO
  339. 3136 PRINT"BUY ALL AVAILABLE COAL MINING SHARES.
  340. 3270 [151]214,21:[153]:[137]5005
  341. 4000 [143] EVALUATION OF GAME
  342. 4001 [151]BC,0:[151]SC,0:[151]LC,5
  343. 4002 [153]"LOAD(null)(null)VAL(null)ATN(null)(null)(null)CLOSE(null)VAL(null)ASC(null)(null)(null)ATN(null)LENVALCLOSE(null)VAL(null)RIGHT$VAL(null)"
  344. 4003 [153]:[153]:[153]" (null)(null)VAL(null)ATN(null)(null)(null)'(null)CLOSE(null)ATN(null)VAL:WAIT";[166]3) NA$:[153]:[153]
  345. 4005 [153]"  (null)VER A PERIOD OF "DA%" DAYS, YOU HAVE"
  346. 4010 [153]"PRODUCED AN AVERAGE POWER OUTPUT OF "
  347. 4015 [153]"CMD"KW%"K(null).";
  348. 4016 [153]" AT A VALUE OF ";VE$;"."
  349. 4020 AK%[178]1[171](KW%[177]799)[171](KW%[177]899)[171](KW%[177]999)[171](KW%[177]1099)[171](KW%[177]1199)[171](KW%[177]1299)
  350. 4022 AK%[178]AK%[171](KW%[177]1399)[171](KW%[177]1499)
  351. 4025 [153]"  (null)OUR AVERAGE POWER PRODUCTION RATE IS "
  352. 4030 [145]AK%[137]4032,4034,4036,4038,4040,4042,4044,4050,4055
  353. 4032 [153]"HORRIBLE! ASCIND A LESS DEMANDING JOB.":[137]4060
  354. 4034 [153]"BAD. (null)OUR AREA HAD":[153]"FREQUENT BLACKOUTS.":[137]4060
  355. 4036 [153]"PRETTY BAD. (null)OUR AREA HAD":[153]"OCCASIONAL BLACKOUTS.":[137]4060
  356. 4038 [153]"WAY BELOW YOUR AREA'S POWER NEEDS.":[137]4060
  357. 4040 [153]"NOT GOOD.  (null)OUR AREA HAD BROWNOUTS.":[137]4060
  358. 4042 [153]"NOT BAD.  (null)OUR AREA'S POWER NEEDS"
  359. 4043 [153]"WERE SUPPLIED - JUST.":[137]4060
  360. 4044 [153]"ADEQUATE. (null)OU COULD DO BETTER.":[137]4060
  361. 4050 [153]"EXELLENT! (null)OWER RATES IN YOUR AREA WILL"
  362. 4051 [153]"NOT BE INCREASED.":[137]4060
  363. 4055 [153]"NEAR THE MAXIMUM! (null)OWER COSTS IN YOUR"
  364. 4056 [153]"AREA WILL DROP SIGNIFICANTLY."
  365. 4060 [141]2000
  366. 4065 D%[178]1[171](DM%[177]10)[171](DM%[177]20)[171](DM%[177]30)
  367. 4070 [153]"  (null)HE EQUIPMENT DAMAGE SUSTAINED WAS"
  368. 4075 [145]D%[137]4080,4085,4090,4095
  369. 4080 [153]"VERY LIGHT.":[137]4096
  370. 4085 [153]"MODERATE.":[137]4096
  371. 4090 [153]"SERIOUS.":[137]4096
  372. 4095 [153]"SEVERE."
  373. 4096 [153]"(null)OTAL REPAIR COSTS WERE ";RC$
  374. 5000 GP$[178][196](GP):[139]GP[179]1000[167]GP$[178]"$"[170]GP$:[137]5002
  375. 5001 GP$[178]"$"[170][200](GP$,[195](GP$)[171]3)[170]","[170][201](GP$,3)
  376. 5002 [153]"(null)HIS RESULTED IN A TOTAL OF "GP$" IN       GROSS  PROFITS.
  377. 5005 PRINT:PRINT:INPUT"[208]LAY [193]GAIN ([217][146]ES OR [206][146]O)";A$:A$=LEFT$(A$,1)
  378. 5010 IFA$<>"Y"THENEND
  379. 5015 GOSUB2000:GOTO390
  380. 5100 B$=""
  381. 5105 FORI=1TO4
  382. 5110 GETA$
  383. 5130 IFASC(A$)<>94THEN5140
  384. 5134 IFB$=""THENRETURN
  385. 5136 OUT%=VAL(B$)
  386. 5138 RETURN
  387. 5140 REM PET ONLY * IFASC(A$)=13THENSYS50583:GOTO1170
  388. 5150 B$=B$+A$
  389. 5160 PRINTA$;
  390. 5170 NEXTI
  391. 5180 RETURN
  392. 5300 FORJ6=1TO63*Z4:NEXTJ6:Z4=Z4+3:RETURN:REM DELAY
  393. 5310 POKE214,23:PRINT:PRINT"   [158][208]RESS [211][208][193][195][197] TO CONTINUE...";
  394. 5311 POKE214,23:WAIT198,1:PRINT:PRINTBL$;:GETZZ$:RETURN
  395. 8000 REM*CORE TEMP WARNING*
  396. 8005 FORQ=1TO15
  397. 8010 PRINT"
  398. 8015 [153]"SYS(null)EACTOR LENOREWAIT.....800STOP
  399. 8020 FORT=1TO175:NEXT
  400. 8025 PRINT"
  401. 8030 [153]"STOP(null)EACTOR LENOREWAIT.....800STOP
  402. 8035 FORT=1TO175:NEXT
  403. 8040 NEXTQ
  404. 8045 PRINT"[144]
  405. 8050 [153]"STOP(null)EACTOR LENOREWAIT.....800STOP
  406. 8055 RETURN
  407. 9000 REM*HEAT EXCH WARNING
  408. 9005 FORQ=1TO15
  409. 9010 PRINT"
  410. 9015 [153]"SYSLEFT$EAT VALXCHANGERWAIT...500STOP
  411. 9020 FORT=1TO175:NEXT
  412. 9025 PRINT"
  413. 9030 [153]"STOPLEFT$EAT VALXCHANGERWAIT...500STOP
  414. 9035 FORT=1TO175:NEXT
  415. 9040 NEXTQ
  416. 9045 PRINT"
  417. 9050 [153]"STOPLEFT$EAT VALXCHANGER...500STOP
  418. 9055 RETURN
  419. 9500 REM*COOLING TOWER WARNING*
  420. 9505 FORQ=1TO15
  421. 9510 PRINT"
  422. 9515 [153]"SYSLENOOLING (null)OWERWAIT....300STOP
  423. 9520 FORT=1TO175:NEXT
  424. 9525 PRINT"
  425. 9530 [153]"STOPLENOOLING (null)OWERWAIT....300STOP
  426. 9535 FORT=1TO175:NEXT
  427. 9540 NEXTQ
  428. 9545 PRINT"
  429. 9550 [153]"STOPLENOOLING (null)OWER....300STOP
  430. 9555 RETURN
  431. 16000 ZD$=""
  432. 16005 PRINT"[147]":PRINTZD$"[212]HIS IS THE REACTOR VESSEL            [145]"
  433. 16010 PRINT"[158]   [190] [146][162][162][190] [146][187]"
  434. 16015 PRINT"  [161] [162][162][162][162][187] "
  435. 16020 FORZZ=1TO4:PRINT"  [161][146][161]      ":NEXT
  436. 16025 PRINT"  [161][188][146]    [172] "
  437. 16030 PRINT"   [187]     [146][190]"
  438. 16035 PRINT"    [162][162][162][162][146][190][144]"
  439. 16040 Z4=11:GOSUB5300:GOSUB5310
  440. 16050 PRINTZD$"[212]HIS IS THE CORE                      [145]"
  441. 16055 PRINT"[172][162][162][162]"
  442. 16060 FORZZ=1TO3:PRINT"[161]   [144]":NEXT
  443. 16065 GOSUB5300:GOSUB5310
  444. 16070 PRINTZD$"[212]HIS IS THE EMERGENCY COOLANT         [145]"
  445. 16075 PRINT"[159] [188][146][161]"
  446. 16080 PRINT" [187][146][190]"
  447. 16085 PRINT" [161]"
  448. 16086 PRINT" [161]"
  449. 16090 PRINT" [188][187][172][187]"
  450. 16095 PRINT" [161][187][172][187]"
  451. 16096 PRINT" [161][144]"
  452. 16097 FORZZ=1TO3:PRINT" [188]":NEXT
  453. 16100 GOSUB5300:GOSUB5310
  454. 16105 PRINTZD$"[212]HESE ARE THE CONTROL RODS            [145]"
  455. 16110 PRINT"[129]"TAB(5)"[161][161]"
  456. 16115 PRINTTAB(5)"[161][161]"
  457. 16120 PRINTTAB(5)"[190][190]"
  458. 16125 PRINTTAB(5)"[187][187]"
  459. 16126 PRINTTAB(5)"[190][190][144]"
  460. 16130 Z4=11:GOSUB5300:GOSUB5310
  461. 16135 PRINTZD$"[212]HIS IS THE PRIMARY COOLANT LOOP      [145]"
  462. 16140 PRINT""TAB(12)"[161][190]"
  463. 16150 PRINTTAB(12)"[188][172]"
  464. 16155 PRINTTAB(13)"[161]"
  465. 16156 PRINTTAB(13)"[161]"
  466. 16160 PRINTTAB(8)"[162] [162][162][162][162][162][146][161]"
  467. 16165 PRINTTAB(15)"[161]"
  468. 16170 PRINTTAB(8)"[162] [162][162][162][162][162][146][190][144]"
  469. 16175 GOSUB5300:GOSUB5310
  470. 16180 PRINTZD$"[212]HIS IS THE HEAT EXCHANGER            [145]"
  471. 16185 PRINT"[156]"TAB(14)"[172][162][162][146][161]"
  472. 16190 PRINTTAB(14)"[172][146][161]"
  473. 16195 PRINTTAB(14)"[161][161]"
  474. 16200 PRINTTAB(14)"[172][146][161]"
  475. 16205 PRINTTAB(14)"[162][162][162][146][190][144]"
  476. 16210 Z4=11:GOSUB5300:GOSUB5310
  477. 16220 PRINTZD$"[212]HIS IS THE SECONDARY COOLANT LOOP    [145]"
  478. 16225 PRINT"[150]"TAB(17)"[161][190]"
  479. 16230 PRINTTAB(17)"[188][172]"
  480. 16235 PRINTTAB(18)"[161]
  481. 16236 [153][163]18)"GET
  482. 16240 PRINTTAB(16)"[172][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  483. 16250 PRINTTAB(16)"[161]"TAB(33)"[161]"
  484. 16255 PRINTTAB(16)"[162][172][146][161]"TAB(33)"[161]"
  485. 16260 PRINTTAB(18)"[161]"TAB(33)"[161]"
  486. 16265 PRINTTAB(18)"[161]"TAB(33)"[161]"
  487. 16270 PRINTTAB(33)"[161]"
  488. 16271 PRINTTAB(33)"[161]"
  489. 16275 PRINTTAB(33)"[161]"
  490. 16280 PRINTTAB(21)"[172]"TAB(33)"[161]"
  491. 16281 PRINTTAB(21)"[188][162][162][162][162][162][162][162][162][162][162][162][162][144]"
  492. 16285 GOSUB5300:GOSUB5310
  493. 16290 PRINTZD$"[212]HIS IS THE TURBINE                   [145]"
  494. 16295 PRINT"[152]"TAB(17)"[172][162][162][162][162][187]"
  495. 16300 PRINTTAB(17)"[188][190][190][190][190][190]"
  496. 16305 PRINTTAB(17)"[161][190][190][190][190][161]"
  497. 16310 PRINTTAB(17)"[162][162][162][162][187][162][144]"
  498. 16315 GOSUB5300:GOSUB5310
  499. 16320 PRINTZD$"[212]HIS IS THE ELECTRIC GENERATOR        [145]"
  500. 16325 PRINT"[153]"TAB(10)"[161][187][187][187][187][187]"
  501. 16330 PRINTTAB(10)"[161]     [146][162]"
  502. 16335 PRINTTAB(10)"[161][187][187][187][187][187]"
  503. 16340 PRINTTAB(10)"[188][162][162][162][162][162][144]"
  504. 16345 Z4=11:GOSUB5300:GOSUB5310
  505. 16350 PRINTZD$"[212]HIS IS THE COOLING TOWER             [145]"
  506. 16355 PRINT""TAB(24)"[161][146]"TAB(31)"[161]"
  507. 16360 PRINTTAB(24)"[188][188]"TAB(30)"[190][146][190]"
  508. 16365 PRINTTAB(25)"[161][146][187]"TAB(29)"[172][161]"
  509. 16370 PRINTTAB(26)"[161]"TAB(29)"[161]"
  510. 16371 PRINTTAB(26)"[161]"TAB(29)"[161]"
  511. 16372 PRINTTAB(26)"[161]"TAB(29)"[161]"
  512. 16375 PRINTTAB(25)"[172][161]"TAB(29)"[161][146][187][144]"
  513. 16380 PRINTTAB(25)"      "
  514. 16385 GOSUB5300:GOSUB5310
  515. 16390 PRINTZD$"[212]HIS IS THE COMPLETE DIAGRAM.         [145]"
  516. 16395 GOSUB5310:PRINT"[147]":POKE53272,23:RETURN
  517. 17000 RETURN
  518.